       	ORG 0000H
START: 	MOV R1,#03H

LOOP:   MOV A,#00000000B
     	MOV P1,A
	ACALL DELAY

      	MOV A,#11111111B
      	MOV P1,A
		ACALL DELAY
      	DJNZ R1,LOOP

START1: MOV R1,#08H
        MOV A,#01111111B

RIGHT:  MOV P1,A
        ACALL DELAY
        RR A
        DJNZ R1,RIGHT

        MOV R1,#08H
        MOV A,#11111110B

LEFT:   MOV P1,A
        ACALL DELAY
        RL A
        DJNZ R1,LEFT
        AJMP START

DELAY:  MOV R5,#255
DL1:    MOV R6,#255
DL2:    MOV R7,#255
DL3:    DJNZ R7,DL3
        DJNZ R6,DL2
        DJNZ R5,DL1

        RET
        END
